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: 1 001 MODULE UNSOLICIT(ZTITLE ‘Respond to unsolicited input’ 

; ¢ OO6 iD ENT = 'v04-000' 

ae 004 1 BEGIN 

be tee i 

: 7 097 1 i eeeeee eee eneeeeees eeeeeeeeeeeeee eee ee eeeeeeeeeeteeeneHeeeneeneeneeeeeeeeees 
3 8 00 1 te * 
3 7 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 8 » 
; 10 0010 1 !* DIGITAL EQUIFMENT EORPORATION, - MAYNARD. MASSACHUSETTS. * 
; \} Bets : ‘* ALL RIGHTS RESERVED. ® 
. '@ * 
; i oOi8 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND og * 
3 14 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH paCense AND WITH THE * 
3 15 0015 1 !* INCLUSION OF THE ABOVE Spl NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 16 0016 1 '!* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ® 
3 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; 18 Bo18 : :* TRANSFERRED. * 
. '® ® 
: 20 0020 1 !* THE g Aree IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 21 0021 1 !* AND ULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 $§ poss ! th CORPORAT {Ou : 
. * 

: 24 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
5 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® 
:  § $057 | is : 
: 28 0028 «1 PITITILILILTILIL LLL LLL LLL LLL LLL LLL Lili 
3 29 +594 1! 

: 3 S084 1 'e+ 

F<. 003¢ 1 | FACILITY 

; ez ee : Job controller. 

: 35 0038 1 | ABSTRACT: 

3 HA ste} : This module contains the routines that respond to unsolicited input. 

: 38 0038 1 | ENVIRONMENT: 

; 39 0039 1} VAX/VMS user and kernel mode. 

ite Tibbs 

; 4@ 004 i AUTHOR: M. Jack, CREATION DATE: 16-Feb-1982 

: 44 O44 ' MODIFIED BY: 

> 46 0046 1 | V03-007 RASO194 on Schaefer 22-Sep-1983 

s rtf nt 4 : Fix itemlist for Roasol 81. " suse lcomtade and Length. 

: 49 0049 1: v03-006 RASO181 Ron Schaefer 18-Aug-19 

;. 2 0050 1! ange definitions of logical names §S SSINPUT, SYSSOUTPUT 

: 33 BRE) ! = YSSERROR to use new PQB logical name attributes. 

: 3g $088 1! v03-005 MLJ0115 Martin L. Jack, 30-Jul-1983 15:20 

3 20 oped ! Changes for job controller baselevel. 

: 56 0056 1! VO3-004 MLJ0114 Martin L. Jack, 23-Jun-1983 5:05 

. OF 0057 1! Changes for job post ay baselevel. 


Page 
: (1) 


3 ow 9 Respond 


: @ 8 } 
: 60 1 
: 61 1 
3 6 0o¢ 1 
$ 6 06 1 
s 64 064 1 
3 65 0065 1 
3 66 066 1 
3 67 067 1 
rs 68 0068 1 


to unsolicited input 


v03-003 encore) Wayne Cardoza 
V03-002 MLJ0109 Martin Jack, 


V03-001 MLJ0106 Martin L. Jack, 
Changes for extended PiDs. 


1$-}e0c19Re 99:41:45 


14-Apr-1983 


14-Apr-1983 


Changes for job control er baselevel. 


11-Mar-1983 


AX-11 B 
JOBCTL. 


et interactive flag in CREPRC when appropriate. 


12:50 


13:52 
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; 7 0069 1 REQUIRE ‘SRC$:JOBCTLDEF'; 

os ae 1119 1 

‘gee. 1111 «1 

“Fae 1136 1 FORWARD ROUTINE 

: 7% 1113 (1 UNSOLICITED_INPUT: NOVALUE, 

es 1114 «1 CREATE  ERROR_AST: NOVALUE, 

; 1115 1 CREATE ERROR MESSAGE; 

cc) ae 1116 1 

; 7 1117 (1 

; 79 1118 1 EXTERNAL 

:; 80 1119 1 ALL_PRIVILEGES; 

; #81 1120 1 

3 Hf 1121 «1 

3 8 11 ¢ 1 EXTERNA 

; 84 11 1  EXESGL FLAGS: BITVECTOR ADDRESSING_MODE (GENERAL), 
$ 85 1124 1 SYS$GB_ DEFPRI: BYTE ADDRESSING “MODE (GENERAL) ; 
; 1382 1 

: Of 1126 1 

3 88 1127 1 EXTERNAL LITERAL 

: «6889 1128 #1 EXESV_CONCEALED: UNSIGNED (6); 
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Respond to unsolicited input 16-Sep-1984 00:41:35 AX-11 Bliss-32 V4.0-74 Pa 4 
14 ety? ET NOBCTL SRE TUNGOL C47 63231 ” ) 


GLOBAL ROUTINE UNSOLICITED_INPUT: NOVALUE= 


le 
' 
: FUNCTIONAL DESCRIPTION: 
This routine erocesses the message types: 
MSG$_TRMUNSOLIC unsolicited terminal input 
MSG$_CRUNSOLIN unsolicited card reader input 
by creating a detached process running LOGINOUT or INPSMB. 


| 

| 

INPUT PARAMETERS: 
NONE 


| 


! IMPLICIT INPUTS: 
MBX _BUFFER - Mailbox message. 


i 

' 

' 

' 

! 

i OUTPUT PARAMETERS: 
NONE 
! 

' 

' 

! 

' 

' 

' 

ie 


i IMPLICIT OUTPUTS: 
NONE 

i ROUTINE VALUE: 
NONE 


i SIDE EFFECTS: 
Detached process created. 


| 
| 
| 
| 
| 
' Descriptor for device name | 
| 
| 


END), 

TERM_CNCL_ATTR: BLOC LONG] ! Create 3 quadword itemlist entries 
INITIAL ' for input, output and error 
PRC$_INPUT_ATT“16 + 

LNMSA_TERMINAL+LNMSM_CONCEALED, 


BEGIN 
LOCAL 
IMAGE _DESC: REF VECTOR, ' Pointer to descriptor for image name 
DEVICE_DESC: vet Oth ea: ; 
DEVICE_BUFFER: VECIORL12,BYTEJ,! Buffer for device name 
STSFLG, ' STSFLG argument for CREPRC 
ITMLST, ! ITMLST argument for CREPRC 
PRCNAM_DESC VECTORC2], ' Descriptor for process name 
ainste PRCNAM; REF VECTOR; ! Pointer to PRCNAM_DESC, or 0 
UNS _W_UNIT= 2,0,16,0 %, ! Binary unit number 
UNS_T_DEVICE= 4.0.0.0 %; ! Counted ASCII controller name 
OWN 
TERMINAL_ATTR: BLOCKE7,LONG] ! Create 3 quadword itemlist entries 
INITIAL ( ! for input, output and error 
PRC$_INPUT_ATT“16 + 4, 
LNMSA_ TERMINAL | 
PRC$_ OUTPUT ATT*16 + 4, 
LNMSA_TER IRAL , 
PRCS ERROR AiT*16 + 4, 
LNMSA INAL, 
ND) 
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1 
Respond to unsolicited input 1b-5e -1984 2:41:35 Ax-11 8 
’ 1 ~300- 1382 ET JOBCTL. 
$ PRC$_OUTPUT_ATT“*16 + 4 
LNMSM TERMIRAL 4. NMSH CONCEALED, 
8 PRC$_ERROR_ATT°16 + 
LNMSM_TERMINAL+LNMSM_CONCEALED, 
PRC$_CISTEND); 


} Set up the process name as ‘'_ddcu:"’. 


PRCNAM _DESCEO] = XALLOCATION(DEVICE_BUFFER); 
PRCNAM_DESC 1] = DEVICE_BUFFER; 
SDESCRIPTOR(*_!AC!UW:"), 
PRCNAM_DESC, 


vuvUvU 


ee ee ae ee ee ae ce ee ee a ee ce ee ce ee ee ce ce ce ce ce a ee ee ce ce ce ee ce ec el ee el ce el ee ee ee el al el cel el el cel ee ee ce ee ee ed 


ane IWWIWWAIWAI AI. AAI NIAID PIPPI NINPINIPINID 8 3 OO S| SH DOOOCDOOCOCOCOCOCOOOOOOOOVOO: 


PRCNAM DESE 
MBX _BUFFER UNS T_DEVICEJ, 
-MBX_BUFFERCUNS @_UNITJ); 
PRCNAM = PRCNAM_DEST; 
Set up the device name as ‘‘ddcu:'’. 
DEVICE _DESCEO] = -PRCNAM_DESCEO] - 1; 
DEVICE-DESCC1) = .PRCNAM_DESCC1) + 1; 
ITMLST = TERMINAL_ATTR; 


: Set up the image name, and reset the itmlst if using concealed 
devices. The interactive flag is set for terminals. 


IF ;MBX_BUFFERCMSG_U_TYPE EQL MSG$_TRMUNSOLIC 
BEGIN 
STSFLG = PRCSM_INTER; 
IMAGE DESC = SDESCRIPTOR('SYSSSYSTEM:LOGINOUT.EXE"); 
LF jee SOL _FLAGSCEXESV_ CONCEALED] 
. ITMLST = TERM_CNCL_ATIR; 

BEG 
STSFLG = 0; 
IMAGE DESC = SDESCRIPTOR('SYSSSYSTEM: INPSMB.EXE"); 
The following loop is executed at most twice. 
WHILE TRUE DO 

BEGIN 
LOCAL 


PID D of created process 
STATUS; 


! Pl 
' Status return 


AANA AAIAIIPIPONINPIDNI WWIII ANIA AAI PINON PONPNINPONINIPINONINONy 
m 
ei 
4) 


Create the process. 
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Respond to unsolicited input 


IF ,STATUS<O, 16 NEQ SS$_DUPLNAM OR .PRCNAM EQL 0 


TMSG( 
MSGVEC=UPLIT(1, 
ACTRTN=CREATE ERROR MESSAGE 
ACTPRM=. CHANNEL); 


NAL ( 
JBCS$_SYMCREPRC OR STSSK_ERROR, 
~ STATUS); 


' Create failed with a wel icate process name" 
the create with no nam 


P 1243 STATUS = SCREPR ( 
P 1244 PIDADR 
P 1245 IMAGES IMAG 
P 1 4g INPUT 
P 124 OUTPUT=DEV 
P 1248 ERROR=DEVI 
P 1249 PRVADR=ALL 
P 1250 CNAM 
P 1251 BASPRI=.SY 
P 1 2¢ UIC=.JB 
P 125 STSFLG=.ST 
1 24 ITMLST=.1T 
1255 
1256 
1257 IF NOT .STATUS 
1258 THEN 
1259 4 BEGIN 
1260 4 
1261 4 ' Create failed. 
1668 4 
1263 4 
1264 4 
1265 4 
1266 5 BEGIN 
1267 5§ 
1268 5 
1269 5 
1270 § 
1271 5 
127e 5 
1273 § 
1274 6 
1275 6 
1276 6 
1277 6 
1278 7 
1279 6 
P 1280 6 
P 1281 6 
p 1s8¢ 6 
1283 6 
1284 é 
1586 6 
1589 8 
1288 6 
1289 6 
1290 2 END; 
1291 RETURN; 
1 3 4 END; 
129 4 
1294 4 
1295 4 
1 96 4 
1297 4 
1298 4 PRCNAM = 0; 
1299 4 END 


AX-11 Bliss-32 V4.0 
JOBCTL.SRC UNSOLICIT. if 231 


If the status is not ‘‘duplicate process name'', or if 
: a create has already been tried with no name, give up. 


! If the device is a terminal, issue a ‘process create error'’ 
i message to it on a best-effort basis. 
to the operator. 


IF _ MBX_BUFFERCMSG_W_TYPE] EQL MSG$_TRMUNSOLIC 


Otherwise, signal the error 


! Channel assigned to terminal 
IF SASSIGN(DEVNAM=DEVICE_DESC, CHAN=CHANNEL ) 


JBCS pecreat OR STS$K_SEVERE), 


Loop to retry 


1 
cit Respond to unsolicited input 1b. -Sep-1 138 09: $}:3 AX-11 Bliss-32 V4.0-7 ag 
14-Sep-19 NOBCTLe SRC JUNSOLICIT.B352;1 


VOe 4 

6 1300 3 ELSE 

8g 1301 4 BEGIN 

rf: 1 8 4 ; 

32 : 87 : Create succeeded. 

67 1305 4 RETURN; 

68 1306 3 END; 

69 1307 END; 
270 1308 1 END; 


-TITLE UNSOLICIT Respond to unsolicited input 
"IDENT \voncogON “oo? - 


.PSECT COMMON,NOEXE, OVR,2 
00000 DIAG_STORAGE_BASE: 


; 0 
00000 DIAG_TRACE: 

BL %6 
00060 DIAG_ COUNT = 
000CO DIAG_FLAGS: ? 
000C4 WORK_AREA: 

-BLKB 44 
QOOFO SNDJBC_COUNT: 

-BL 132 
00174 GETQUI_COUNT: 

~BL 40 
0019C SNDACC_COUNT: a 
00188 SNDSMB_COUNT: 

-BLKB 72 
00200 DIAG_ STORAGE END: 
00200 FLAGS: -:BLKB 4 
00204 IMAGE. DUMP STSFLG: 
00208 THIS_SYSID: 

-BLKB 6 
0020 “BLKB 2 
00210 CUR_TIME: 

‘BLKB 8 
00218 HOURLY_TIME: 

-BLKB 8 
00220 HOURLY_PARAMS : 

BLKB. 20 


BLK 
00234 SYMBIONT_ COUNT: 
00238 QUEUE _REF ERENCE _COUNT 
0023¢ MBX MESSAGE COUNT: 
0024 0 MBX: pe tks 

00344 “BLKB 4 
00248 MEMORY. “FREE _QUEUES: 


F 1 
| UNSOLICIT Respond to unsolicited input 16-Sep-1984 241: 
v0e- 22808-1882 99:4: 


| 00270 NONAST “work QUEU 
| 00278 ace_rnee tisr: 
| 0027¢ BCB_ACTIVE LIST: 
00280 GOL_FREE_LIST: 
| 00284 GaL -ACTIVE List: 
| 00288 OPEN -GETAUL LIST: 
| 0028C PROCESS -DATAALIS 
00290 SYMBIONT. CONTROL: 
00294 SPARE “anda 
002A0 REMOTE wi QuESt. L 
| 002A8 QUEUE FILE -LKsB: 
| 00280 QUEVE_LOCK LKB: 


002B8 RSP -BLKB 
002C0 JBC =PRIORITY: 


002c4 yBC PRIVILEGES: 
002CC JBC_QUOTAS: 
BLKB 


-BLK 
0030E «BLK 
| 


2 
SB: 


3 
1 
4 
E: 
8 
4 
4 
4 
4 
4 
T: 
4 
4 
1 
K 
8 
8 
8 
8 
4 
8 
6 
2 
4 


B 
00310 JBC_UIC:.BLKB 
00314 QUEDE_FAB: 

-BLKB 80 
00364 QUEUE _RAB: 


-BLK 68 | 
O03A8 QUEUE_NAM: 

-BLKB 96 
00408 QUEUE_XAB: 88 


. LK 
00460 QUEUE_RSA: 


-BLKB 495 
00555 -BLKB 
00560 QUEVE_ALQ: 


-BLK 
00564 QUEUE_MaF : 
-BLK 


| $0868 ACCOUNTING: ABS: 
00570 ncCOUNTIIiG RABS 
| 00578 ACCOUNT_FAB A: 
| 00SCB ACCOUNT RAB. A: 


oem ww ££ 


Fo a ss939590990909090905 1090999900044 a 
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! 
-BLKB 68 
0060¢ ACCOUNT _NAM A: “ 
0066C ACCOUNT_RSA_A: 
-BLRB 255 
| 00768 “BLKB | 
6076C ACCOUNT_FAB_B: 1“ 
007BC ACCOUNT_RAB_B: 
. BL 68 ' 
00800 ACCOUNT.WANB: | 
00860 ACCOUNT_RSA_B: 
-BLRB 255 | 
0095F “BLKB 1 
00960 DIAG_FAB: : ie 
00980 DIAG_RAB: 
-BLKB 68 
009F4 MBX_CHAN: 
-BLKB 4 
009F8 MBX_I0SB: 
-BLKB 8 
OOA00 MBX_BUFFER: - 


-BLK 
Q0E00 ITEM_PRESENT: 

BLKB 32 
0020 VALUE_GETQUI BASE: 
00E20 VALUE ACCOUNT ING MESSAGE : 
00E26 VALUE ACCOUNTING TYPES: | 
O0E2A VALUE _AFTER TIME: 
00E32 VALUE _ALIGNMENT_PAGES: 
00E33 VALUE_BASE PRIORITY: 


00E34 VALUE_BATCH INPUT: 
OOE3A VALUE _BATCH OUTPUT: | 
00E44 VALUE BUFFER COUNT: | 
00E45 VALUE CHARACTERISTIC _NAME: 
00E4B VALUE CHARACTERISTIC _NUMBER: 
O0E4C VALUE CHARACTERISTICS: 
O0ESC VALUE CHECKPOINT DATA: 
00E62 VALUE ct 


| 
| 
| 
| 
| 
| 
| 
° LK 24 | 
| QOE00 VALUE_STORAGE _BASE: | 
| | 
| | 
| 


LKB 6 


ae See 


—_—_--—_—__— - O_o SS 
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~UNSOLICIT Respond to unsolicited input 18 Se 1:35 1 
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3 
:1 
00E68 VALUE_CPU DEFAULT: 
QOE6C VALUE_CPU_LIMIT: 
00E70 VALUE DESTINATION. QUEUE : | 
QOE78 VALUE_DEVICE NAME: | 
QOE7E VALUE “ENIRY NUMBER : | 
00E82 VALUE -eniny NUMBER OUTPUT: 
OOE8C VALUE ~EXTEND QUANTITY: 
OOE8E VALUE_FILE COPIES: 
OOE8F VALUE “Fleet rADENTIEICATION: 
00EB3 VALUE_FILE SETUP MODULES: 
| 
| 
| 
| 
| 
| 
| 


QOEB9 VALUE _FILE SPECIFICATION: 
OOEBF VALUE_FIRST PAGE: 
QOEC3 VALUE “Foam DESCRIPTION: 
OOEC9 VALUE_FORM LENGTH: 
OOECA VALUE _FORM “poe eatedalahetan 
QOECB VALUE_FORM ae LEFT: 
OOECD VALUE_FORM wae o RIGHT: 
OOECF VALUE _FORM MARGIN. TOP: 
QOEDO VALUE _FORM NAME: 
QOED6 VALUE _FORM NUMBER: 
QOEDA VALUE _FORM: 

OOEE2 VALUE “Fo SETUP 
OOEES VALUE_ FORM Stock: 
QOEEE VALUE _FORM A Naas 
OOEFO VALUE GENERIC. TA 
01204 VALUE_JOB_COPIES: 
01205 VALUE _J0B LIRIT: 
01206 VALUE _J0B NAME : 


-BLKB 6 
012DC VALUE_JOB_RESET MODULES: 


MODULES: 


— 


om 


i 


1 
| UNSOLICIT Respond to unsolicited input 15 Sep-1984 00:41:35 AX-11 Bliss-32 V4.0 P 11. 
VO Ve-Sep-1986 12:97:16 LdoactL SResUNSOL I¢1T.B32;1 we (3) 
| Pune | 
012E2 VALUE_JOB SIZE MAXIMUM: 
-BLKB ~ 


O12E6 VALUE. JOB S1ZE_ MINIMUM: 
012EA VALUE _JOB STATUS, OUTPUT: 
012F4 VALUE_LAST “PAGE: 

012F8 VALUE LIBRARY SPECIFICATION: 
O12FE VALUE_LOG GUEUE: 
01306 VALUE_LOG, SPECIFICATION: 
0130C VALUE_NOTE: 
01312 VALUE -oPRATOR. REQUEST: 
01318 VALUE OWNER UIC: 
0131C VALUE PAGE. SETUP 


| 

| 

| 

s MODULES: 
01322 VALUE PARAMETER. 

| 


aS OMe AOHa@ ams” 


01328 VALUE _PARARETER 
0132E VALUE _PARARETER_ 
01334 VALUE _PARAMETER. 
0133A VALUE _PARARETER, 
01340 VALUE _PARAMETER.. 
01346 VALUE "PARANETER. 
0134C VALUE _PARARETER_ 
01352 VALUE PRIORITY: 
01353 VALUE PROCESSOR: 
01359 VALUE PROTECTION: 
0135D VALUE -QUEUE : 
01363 VALUE -AUEUE FILE SPECIFICATION: 
01369 VALUE_RELAT IVE _PAGE: 
0136D VALUE _RESERVED_INPUT_1: 
0136E VALUE RESERVED INPUT. 2: 

01370 VALUE_RESERVED_INPUT_3: 

-BLKB ~ 4 


ero aD oO = COO NOOO ROWORO— 


———_— 


| 
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| 01374 VALUE -RESERVED. INPUT_4: 

0137A VALUE -RESERVED. OUTPUT _ 1: | 
| 01384 VALUE -RESERVED_ OUTPUT 2: 
0138E VALUE_SEARCH, STRING: | 
01394 VALUE_SCSNODE_NAME : 


V4.0-7 4g 
ovicit.882;1 


LK 
| 01394 VALUE WSBEF AULT: 
0139C VALUE _WSEXTENT: 
01396 VALUE _usduoTA: 


2 
013A0 VALUE _ STORAGE _END: 
-BLKB~ 0 
.PSECT DATA,NOEXE,2 
00000200 00050004 00000200 00040004 00000200 00030004 00000 TERMINAL_ATTR: 
isaepend init “LONG 196612, 512, 262148, 512, 327684, 512,0 ; 
00000300 00050004 00000300 00040004 00000300 00030004 O001C TERM.CNCL_ATTR: ; 
-CONG 196612, 768, 262148, 768, 327684, 768,90 ; | 
00000000 00034 : | 
.PSECT CODE,NOWRT,2 
3A 57 55 21 43 41 21 SF 00000 P.AAB: .ASCII \_!AC!UW:\ ; 
00000008 00008 P.AAA: .LONG ; 
00990009" 0000¢ “ADDRESS P.AAB F 
49 47 GF 4C 3A 4D 45 54 53 59 53 24 53 59 53 00010 P.AAD: ‘ASCII \SYSS$SYSTEM:LOGINOUT.EXE\ : 
45 58 45 2— 54 55 GF 4E O001F F 
00000017 00028 P.AAC: .<LONG 23 ; 
00990009" 0908¢ “ADDRESS P.AAD : 
53 50 4E 49 3A 4D 45 54 53 59 53 24 53 59 53 00030 P.AAF: <ASCII \SYSSSYSTEM: INPSMB.EXE\ : 
45 58 45 2— 42 4D 0003F : 
00045 -BLKB 3 
00000015 00048 P.AAE: LONG 21 : 
00000000" 0004¢ “ADDRESS P.AAF : 
0004843C 00000001 00050 P.AAG: <:LONG 1, 295996 : 
JBCS$ -CLOSEQUT= 66328 
JBC$~NOCMKRNL= 723 : 
JBCS"NOOPERS 725 
JBC$~NOSYSNAM= 72404 
JBC$~OPENIN= 66592 
JBC$"OPENOUT= 6640 
| JBCS~READERR= 66416 | 
JBCS"WRITEERR= 6644 | 
| .EXTRN ALL_PRIVILEGES, EXESGL_FLAGS 
EXTRN SYSSGB DEFPRI EXESV_CONCEALED | 
| EXTRN SYSS$FAO, SYSS$CREPRC | 
-EXTRN SYSSASSIGN, SYSSPUTMSG | 
| 
| | 
| 


roo OO ee 


| kK 1 
/UNSOLICIT Respond to unsolicited input 16-Sep-1984 2:41:35 AX-11 Bliss-32 V4.0=-74 Page 3| 
abs 1e8eb-19ee os37:i6 — EAbacre SReduRgoL tc9T 69251 v 
| 007¢ 0000 ENTRY UNSOLICITED_INPUT, Save R2,R3,R4,R5,R6 : 1129) 
56 00000000' EF 9 0092 HOVAB Mex BUFFER, RO : | 
| 5E 4 ¢ 999 SUBL2 # $- SP : 
08 AE C DO 000 MOVL #12. PRCNAM_DESC + 1194 
| OC AE 19 AE Hi 001 MOVAB DEVICE BUFFER, PRCNAM_DESC+4 : 1195 
7E 02 A6 3C 0001 MOVZWL MBX_BUFFER+2, -(SP) : 1201 
046 Ad 9F 00019 PUSHAB MBX”BUFFER+4 : 
| 10 AE 9F 0001C PUSHAB PRCRAM_DESC : 
| 14 AE 9F OOOTF PUSHAB PRCNAM-DESC : 
8B AF 9Y9F 000 é PUSHAB P.AAA : 
000000006 90 0S FB 999 CALLS #5, SYS$FAO : 
4 08 AE 3 02¢ MOV PRENAM_DESC, PRCNAM : 1202 
1¢ «AE 08 AE 01 ¢3 00030 SUBL3 #1, PRCNAM_DESC, DEVICE_DESC : 1207 
20 AE 0c AE 01 C1 00036 ADDL3 #1, PRCNAM-DESC4+4, DEVITE_DESC+4 : 1208 
55 00000000' EF 9E 9005¢ MOVAB TERMINAL_ATTR, ITMLST + 1211 
01 66 Bi 0004 CMPW MBX_BUFFER, #i + 1216 00( 
1A 12 00046 BNEQ  1$ : 006 
52 0400 8F 3C 00048 MOVZ2WL #1024, STSFLG 3 1219 00( 
53 80 AF 9E 00040 MOVAB P.AAC, IMAGE DESC 3 1220 00( 
OF 000000006 00 006 £1 00051 BBC S*EXE$V_CONCEALED, EXESGL_FLAGS, 2$ + 1221 00( 
55 00000000' EF 9E 00059 MOVAB TERM_CNUL_ATTR, ITMLST : 1223 00( 
06 11 00060 BRB 2$ 3 1216 00( 
52 04 00062 7$ CLRL STSFLG : 1227 00( 
53 89 AF 9E 00064 MOV P.AAE, IMAGE_DESC : 1228 00( 
24 BB 00068 2$ PUSHR #*M<R3,R5> + 1254 00( 
7E D4 0006A CLRL =(SP) ; 00( 
F910 «C6 «ODD 9006¢ PUSHL JBC_UIC ; 00( 
7E 000000006 00 9A 0007 MOVZBL SYSSGB_DEFPRI, -(SP) : 00( 
54 DD 00077 PUSHL PRCNAM : 00¢ 
7E D4 00079 CLRL. = = (SP) : 00¢ 
000000006 EF 9F 0007B PUSHAB ALL_PRIVILEGES : 00¢ 
3c = AE. s«O9F_:« 00081 PUSHAB DEVICE_DESC : 00¢ 
40 AE 9F 00084 PUSHAB DEVICE-DESC : 00( 
44 AE 9F 00087 PUSHAB DEVICE-DESC : 00( 
53 DD O008A PUSHL IMAGE_BESC : 00¢ 
30 AE 9F 0008C PUSHAB PID : 00( 
000000006 90 OD FB 9008 CALLS #13, SYS$CREPRC : 00( 
52 50 EB 00096 BLBS STATUS, 6$ : 1257 00¢ 
0094 28F 50 81 00099 CMPW STATUS. #148 > 1264 00( 
04 12 0009E BNEQ 3$ : 00( 
54 D5 900A TSTL PRCNAM ; 00( 
42 12 000A2 BNEQ g : 00( 
01 66 Bi 000A. 3$: CMPW MBX_BUFFER, #1 : 1272 08( 
38 12 O00A7 BNEQ 4 : 08( 
E 7C O00A9 CLRQ = : 1278 0a( 
Oc AE 9F OOO0AB PUSHAB CHANNEL : 08( 
28 «=OAE OS O00AE PUSHAB DEVICE_DESC : 08( 
000000006 00 04 FB 00081 CALLS #4, SYSSASSIGN ; 08( 
30 50 5? 00B8 BLBC ; + 
E 04 AE 3C 00088 MOVZWL CHANNEL, -(SP) > 1283 8( 
7E D4 OO0BF CLRL - : 8¢ 
| 0OOOv CF 9F 000C1 PUSHAB CREATE_ERROR_MESSAGE : 08( 
| FoF CF 9F 000CS PUSHAB P. : 08( 
| 000000006 00 04 FB 000C9 CALLS #4, SYSSPUTMSG : 
04 89000 RET ; 1372 
| 50 DD 000D1 4$: PUSHL STATUS : 1289 
| 


1 
| UN IT Respond to unsolicited input b-se ° 
| Voor =Sep- 
20 at i D 
Bp D 
00048462 F OD D 
000000006 00 4 FB Of 
04 OO0E 
54 Rs OOE6 5$: 
FF7D 31 QOOE8 
04 OOOEB 6$: 
; Routine Size: 236 bytes, Routine Base: CODE + 0058 


1982 P3:9):98 — Wobact. SRE foNSol 


PUSHAB DEVICE_DESC 
PUSHL # 

PUSHL #296034 

gaye #4, LIBSSIGNAL 
CLRL PRCNAM 

BRW 2s 

RET 


NNN SLO 
TA Fh - - - -F -7 -7 ODOD 
i Ions ns Bene Bees Bens en ns Ben Bn Sa ae 


SSss 


M1 

/UNSOLICIT Respond to unsolicited input 16-Sep-1984 00:41:35 AX-11 Bliss-32 V4.0-74 Page 15. 

—V06- 12280 8=138e 12:37:16 JOBCTL. SRCJUNSOLICIT.B 231 . ved 

ls f ! } ROUTINE CREATE_ERROR_AST(CHANNEL): NOVALUE= 

b 276 1311 1 te 

ig 75 1 \¢ 1! | 

FF 6 1315 1 =! FUNCTIONAL DESCRIPTION: 

is ef 1314 1! This is a completion AST routine for the $Q10 that issues a ‘process 

is en wis 3a create error’’ message to a terminal on which unsolicited input has 

E 444 ; 1 : been received. Its purpose is to deassign the channel. | 

> 281 1318 1 | INPUT PARAMETERS: | 

E $o¢ ' 1? : CHANNEL - Channel number, passed as ASTPRM. 

1; 284 13521 1 ! IMPLICIT INPUTS: | 
; 85 1 ; . 3 NONE 
; 286 3 7? 

5; gor 13246 1 ! OUTPUT PARAMETERS: 
; 288 1325 1! NONE 
: 289 1358 es 
3; eye 1327 1 =! IMPLICIT OUTPUTS: 
5 $3) 1328 1! NONE 
; 98 1362 1! 
: 29 3 QO 1 ! ROUTINE VALUE: 
> 294 1331 1! NONE 
: 95 1356 1! 
; 296 1335 1 ! SIDE EFFECTS: 
; 297 1334 1! Channei deassigned. 
; 298 1335 1! 
: 99 1336 1 !Se= 
: 300 1337 1 
; 301 1338 § BEGIN | 
: 308 1339 SDASSGN(CHAN=. CHANNEL); 
:; B® 1340 1 END; | 
-EXTRN SYSSDASSGN 
0000 00000 CREATE_ERROR_AST: 
WOR Save nothing $ 1398 
04 aC ODD O08 PUSHL CHANNEL ; 1339 
00000000G 00 01 FB 0000 CALLS #1, SYSSDASSGN 5 

04 9000C RET : 1340 


; Routine Size: 13 bytes, Routine Base: CODE + 0144 


-———_—_—_——- 


“UNSOLICIT 


| 
| 3 
' 


| 


Ws Bs be Se Be Re Be Be We Os Se Oe Be Ss Os OE SS Hy OVHs Be BE OS-Ks OH Ss O5, So- Hs O4 Ea Ee Oe. Es Be Be 2 044s Be Se be te Us He Bees ne 66 BE ESET OE és 


05 


ht 2 tt 2 OOO 
SODA MP WWI OD RE 


BREE EEE PAW pononononony 


AANA A IAAI AANNANWI WANA NANA AANA NIAAA NANWIWO 
OU FlW 0 OONOUSWN OO ODOnNOUS Wh 


PAP AMAAM IU 
DNC UE wWw—OOOn 


vuvuUvUU 
a a ed a ee ee ee me a ee a ee a ec ce ea ee ee ee ee ee ee ee a ee ee ed odd 


AWANA.AAAAA AAAI AANA AANA AAANNI WAIANAE NANO 


DOO O OWWWW OW DOOD NINN NNN NNO OOO 


N 1 
Respond to unsolicited input 16-Sep-1984 00:41:35 
4 1ox808- 138s 99:3): 73 


: FUNCTIONAL DESCRIPTION: 

: s is an action routine for the $PUTMSG that issues a ‘'process 
he error’’ message to a terminal on which unsolicited input has 
been received. Its purpose is to issue the $010 to write the message. 

i INPUT PARAMETERS: 
MSG_DESC 
CHANNEL 

i IMPLICIT INPUTS: 
NONE 


- seuer sever for message. 
= Channel number, passed as ACTPRM, 


Le AANA AWAIWNANAAN 


i IMPLICIT OUTPUTS: 
NONE 
i ROUTINE VALUE: 
FALSE, to signal SPUTMSG not to write the message. 


i SIDE EFFECTS: _ 
Message written to terminal. 


DDAEDRXAPEDAA AAs & 


' 
' 
' 
' 
' 
' 
' 
‘ 
' 
J 
‘ 
' 
i QUTPUT PARAMETERS: 
! NONE 
1 
' 
' 
' 
1 
' 
! 
i] 
' 
i] 


MSG_DESC: REF BBLOCK; ! Descriptor for message 


! Issue the $010 to write the message. 
the channel. 


IF NOT $Q10¢ 
ee =10$_WRITEVBLK, 


EL, 
ASTADR= CREATE ERROR_AST, 
ASTPRM=. CHANN 
P1=.MSG_DESCCDSCSA_POINTER 

Pe: ise, DESC DSC$WLENGTHJ, 


THEN 
SDASSGN(CHAN=. CHANNEL) ; 


If the $Q10 service fails, deassign 


J. 


Return false, to signal SPUTMSG not to write the message. 


FALSE 
END; 


FAM CO OONO NE WIN 0 ODNAU EWN 9 ODNAUE WIN (OO ONAUE WN OO OONOULS wr 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


AX-11 Bliss-32 V4 


ores 
JOBCTL.SRCJUNSOLICIT.B52;1 


DT: =, Sven sesticfoed Set Wsegcints OSHA MGI Su eMaAB tte sh, 


-EXTRN SYS$QI0 
0000 00000 CREATE Sg fans emt 


OR Save nothing 
ze 7C 00002 CLROQ 53P) 
7E 20 7D 00004 MOVQ #32, <(SP o 
50 04 AC DO 00007 MOVL = MSG_DESC 
7E 66 C 00008 MOVZWL (ROY (sp) 
04 AO DD OO00E PUSHL 4(RO RO} 
08 AC DD 00011 PUSHL CHAN 
DC AF 9 0014 PUSHAB ae ERROR. AST 
7E 30 7D 09017 ova #4 
08 AC DD OOO1A PUSHL CHANN 
7E D4 99010 CLRL. = (SP “y 
000000006 00 0c FB 001F CALLS #12, SYS$QI0 
OA 50 €8 00026 LBS ~—s«aRO, ‘18 
08 AC DD 00029 PUSHL CHANNEL 
000000006 00 01 FB 000 g CALLS #1, SYSSDASSGN 
50 04 00033 1$: CLRL RO 
04 00035 RET 


; Routine Size: 54 bytes, Routine Base: CODE + 0151 


—— 


UNS 


CIT Respond to unsolicited input 


v04 
; 360 133) 
; sel 1396 d EL UDOM 
«EXTRN LIBSSIGNAL 
; PSECT SUMMARY 
; Name Bytes Attributes 
: COMMON 5024 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, OVR,NOPIC,ALIGN(2) 
; DATA 56 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; CODE 391 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
Fe Ss a Dea = oo ea Symbols -------- Pages Processing 
. File Total Loaded Percent Mapped Time 
: .$255$DUA28: CSYSLIBILIB.L32;1 18619 57 0 1000 00:01.4 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:UNSOLICIT/OBJ=OBJ$:UNSOLICIT MSRC$:UNSOLICIT/UPDATE=(ENH$:UNSOLICIT) 
; Size: 303 code + 5168 data bytes 


: prey tas: 00:59.1 
3; Lines/CPU Min: gis) 

3 Lexemes/CPU-Min: 53287 

; pees | Used: 251 pages 
; a 


; Compilation Complete 
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